home *** CD-ROM | disk | FTP | other *** search
/ Run Magazine ReRun 1986 September & October / rerun-1986-09-10.d64 / graphix demo 2 (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  710b  |  22 lines
  1. 100 v=53248:fori=0to63:readd:poke50432+i,d:next:gosub165
  2. 105 geta$:ifa$="[133]"thengosub165
  3. 110 ifa$="[134]"thengosub175
  4. 115 ifa$="[135]"then185
  5. 120 j=peek(56320)
  6. 125 if(jand16)=0then:!pn,0
  7. 130 dx=sgn(jand4)-sgn(jand8):dy=sgn(jand1)-sgn(jand2):x=x+dx:y=y+dy
  8. 135 ifx<0thenx=319
  9. 140 ifx>319thenx=0
  10. 145 ify<0theny=199
  11. 150 ify>199theny=0
  12. 155 x1=x+13:y1=y+40:s=(x1>255):pokev,x1+s*256:pokev+16,-1*s:pokev+1,y1
  13. 160 !pl,x,y:!pn,1:goto105
  14. 165 !sc,0:pokev+21,0
  15. 170 print"[147]enter background and foreground colors":inputb,f:b=band15:f=fand15
  16. 175 x=160:y=100:pokev+39,f:pokev,x+13:pokev+1,y+40:pokev+21,1
  17. 180 !sc,2:!co,b+f*16:poke52216,20:!pn,1:return
  18. 185 !sc,0:print"[147]":pokev+21,0:end
  19. 190 data0,126,0,1,129,128,6,0,96,8,0,16,16,0,8,32,0,4,64,0,2,64
  20. 195 data0,2,128,0,1,128,0,1,128,16,1,128,0,1,128,0,1,64,0,2,64,0
  21. 200 data2,32,0,4,16,0,8,8,0,16,6,0,96,1,129,128,0,126,0,13
  22.